home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-10_1988_-_de_Side_B.d64 / ultima tool (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  65 lines
  1. 0 rem -------------------------------
  2. 1 rem  syntax:
  3. 2 rem
  4. 3 rem  sys53000,speicherstelle,zeit,
  5. 4 rem           laengeder bewegung,
  6. 5 rem           anfangsposition
  7. 6 rem
  8. 7 rem  sys53000,s,z,l,a
  9. 8 rem -------------------------------
  10. 9 rem
  11. 10 fort=53000to53126:readq:poket,q:next
  12. 15 data32,253,174,32,138,173,32,247,183,140,76,207,141,77,207,140,94,207,141
  13. 20 data95,207,140,68,207,141,69,207,32,253,174,32,158,183,142,110,207,32,253
  14. 25 data174,32,158,183,142,71,207,142,89,207,32,253,174,32,158,183,142,66,207
  15. 30 data169,0,141,32,208,162,7,32,109,207,238,32,208,202,165,203,201,64,208
  16. 35 data45,138,208,240,162,7,32,109,207,206,32,208,202,165,203,201,64,208,27
  17. 40 data138,208,240,76,70,207,160,0,169,5,141,122,3,206,122,3,173,122,3
  18. 45 data201,0,208,246,136,208,238,96,169,0,133,198,96
  19. 50 rem ---------------------
  20. 51 rem  ultima-tool
  21. 52 rem  by
  22. 53 rem
  23. 54 rem  frank abbing, ahaus
  24. 55 rem ---------------------
  25. 56 rem  !! demonstration !!
  26. 57 rem   ende durch taste!
  27. 58 rem ---------------------
  28. 59 goto65
  29. 60 fort=1to500:next:return
  30. 65 poke53280,0:poke53281,0:print"[147][158]";
  31. 67 print"[158]   [205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205]"
  32. 68 print"  ^ ^                             ^ ^":fort=1to21
  33. 70 print"  [194] [194] [149]ultima-tool by frank abbing [194] [194]":next:print"";
  34. 72 :
  35. 75 sys53000,53280,107,1,9:poke53280,0
  36. 80 gosub60
  37. 85 :
  38. 90 sys53000,53281,3,16,0:poke53281,0
  39. 95 gosub60
  40. 100 :
  41. 105 sys53000,53270,1,7,200:poke53270,200
  42. 110 gosub60
  43. 115 :
  44. 120 sys53000,53270,5,7,200:poke53270,200
  45. 125 gosub60
  46. 130 :
  47. 135 sys53000,53265,220,7,16:poke53265,27
  48. 145 :
  49. 150 v=53248:fort=0to62:poke704+t,255:next:poke2040,11:pokev,73:pokev+1,66
  50. 155 pokev+39,7:pokev+23,1:pokev+29,1:pokev+21,1
  51. 160 :
  52. 165 sys53000,53248+39,4,1,6:pokev+39,7
  53. 167 gosub60
  54. 170 :
  55. 175 sys53000,53248+29,4,1,0:pokev+29,1
  56. 177 gosub60
  57. 180 :
  58. 190 sys53000,53248,45,175,73:gosub60
  59. 195 :
  60. 200 sys53000,53249,70,127,66:pokev+21,0:gosub60
  61. 205 :
  62. 210 poke54296,15:poke54278,240:poke54276,17
  63. 215 sys53000,54273,50,25,100:poke54276,0:gosub60
  64. 220 :
  65.